Highway Network

hwy_maps <-leaflet()%>%
  setView(-79.26, 36.05, zoom=11) %>%
  addProviderTiles(providers$CartoDB.Positron)%>%
  addPolylines(data=trm_v6_hwy,
            group ="TRMv6.2",
            color="black",
            opacity=0.6,
            weight=0.5,
            popup=paste("Road Name: ", trm_v6_hwy$ROADNAME)) %>%
  addPolylines(data=triad_hwy,
               group="Triad",
               color="blue",
               opacity=06,
               weight=0.5,
               dashArray = "5,5",
               popup=paste("Road Name: ", triad_hwy$ROUTE_NAME)) %>%
    addPolylines(data=trm_g2_hwy,
               group="TRMG2",
               color="green",
               opacity=0.6,
               weight=0.5,
               popup=paste("Road Name: ", trm_g2_hwy$ROADNAME)) %>%
  
    addLayersControl(overlayGroups = c("TRMv6.2", "Triad", "TRMG2")) 

## Warning: sf layer has inconsistent datum (+proj=longlat +ellps=GRS80 +no_defs).
## Need '+proj=longlat +datum=WGS84'

## Warning: sf layer has inconsistent datum (+proj=longlat +ellps=GRS80 +no_defs).
## Need '+proj=longlat +datum=WGS84'

## Warning: sf layer has inconsistent datum (+proj=longlat +ellps=GRS80 +no_defs).
## Need '+proj=longlat +datum=WGS84'

hwy_maps %>% hideGroup("TRMG2")